home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / laplace.lha / Laplace / Projects / physic next >
Text File  |  1996-04-03  |  475b  |  20 lines
  1. #USEFLOAT=FALSE
  2. #SIMPLIFY=TRUE
  3. #ERRBND=15
  4. ; Berechnung der Bahnexzentrizität eines Meteoriten
  5. ; Masse m
  6. ; Geschwindigkeit und Bahnradius im Perihel 70000m/s bzw. 5e10m
  7. const(m),v_0:=7e4,r_0:=5e10
  8. ; Drehmoment L relativ zur Sonne
  9. L=r_0*m*v_0
  10. ; Potentielle Energie im Gravitationsfeld der Sonne
  11. E_pot = -G*m*m_sun/r_0
  12. ; Kinetische Energie der Bahnbewegung
  13. E_kin = 1/2*m*v_0^2
  14. ; Gesamtenergie
  15. E=E_kin + E_pot
  16. ; Bahnexzentrizität e
  17. e=(1+2*E*L^2/((G*m*m_sun)^2*m))^(1/2)
  18. eval(e)
  19.  
  20.